home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / moonlight zone (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  8.8 KB  |  211 lines
  1. 14 s=54272:v=53248:tm=500:sc=0:bl=0:fl=50:hs=0:p=200:q=202
  2. 20 pokev+21,.:gosub800
  3. 22 p$="":a$="[214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214]      [214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]"
  4. 23 b$="     [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214]    [214][214][214][214][214][214]    [214][214]    "
  5. 24 c$="[214][214][214][214]    [214][214][214][214]    [214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]        [214][214][214]"
  6. 25 d$="[214][214][214][214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]   "
  7. 26 forx=50880to51116:reada:pokex,a:next
  8. 28 forx=49152to49528:reada:pokex,a:next
  9. 30 forx=12800to13374:reada:pokex,a:next
  10. 32 p$=a$+b$+c$+d$
  11. 34 pokev+28,128:pokev+37,1:pokev+38,8:pokev+46,14:pokev+39,2:pokev+40,7
  12. 35 pokev+41,14:pokev+42,5:pokev+43,8:poke v+44,15:pokev+45,1
  13. 36 forx=2040to2046:pokex,202:next:poke2047,200:pokev+16,84
  14. 37 pokev+0,30:pokev+1,20:pokev+2,160:pokev+3,20:pokev+4,40:pokev+5,20
  15. 38 pokev+10,30:pokev+11,250:pokev+6,100:pokev+7,250:pokev+8,10:pokev+9,250
  16. 39 pokev+12,40:pokev+13,250:pokev+14,160:pokev+15,130:pokev+27,127
  17. 40 s=50433:pokes,3:pokes+1,2:pokes+2,0:pokes+3,3:pokes+4,252:pokes+5,1
  18. 41 pokes+6,0:pokes+7,255:pokes+8,0:pokes+9,254:pokes+10,2
  19. 42 pokes+11,254:pokes+12,254:pokes+13,255:pokes+14,0:pokes+15,0
  20. 44 w1=peek(v+30):w2=peek(v+31)
  21. 50 rem    playing screen
  22. 52 print"[147]   t h e  m o o n l i g h t  z o n e   "
  23. 54 print"[158] time         'q' to quit[158]    blops     "
  24. 56 print"[158][214]floor              high score        [146][158][214]"
  25. 58 print"[214]";mid$(p$,int(215*rnd(9)+1),37);"[214]"
  26. 60 forx=0to3:fory=0to3:print"[214]"tab(38)"[214]":nexty
  27. 61 print"[214]";mid$(p$,int(215*rnd(9)+1),37);"[214]":nextx
  28. 62 print"[158]"tab(6);tm;tab(35);bl:print""tab(7);fl;tab(31);hs
  29. 63 pokev+21,255:fort=0to1000:next
  30. 64 poke50688,255:poke50432,255:sys51104:poke2047,199
  31. 65 gosub100:if(mm)then150
  32. 66 geta$:ifa$="[209]"ora$="q"then61005
  33. 70 q=q+1:ifq=208thenq=202
  34. 74 gosub100:if(mm)then150
  35. 76 forx=2040to2046:pokex,q:next
  36. 77 gosub100:if(mm)then150
  37. 79 w1=peek(v+30):ifw1>127then200
  38. 81 gosub100:if(mm)then150
  39. 82 w2=peek(v+31):ifw2>127then200
  40. 83 gosub100:if(mm)then150
  41. 85 tm=tm-1:print"[158]"tab(6)"     ":print""tab(6);tm:iftm=0then300
  42. 86 gosub100:if(mm)then150
  43. 90 goto65
  44. 100 mm=.:poke2047,200:if(peek(56320)and15)=15thenpoke50447,0:poke50688,128:return
  45. 101 jy=peek(56320)and15:ifpeek(198)<>0thengetag$:ifag$="q"then61000
  46. 102 if(7eorjy)<>15thenpoke50447,1:poke50688,128:ms=-1
  47. 104 if(11eorjy)<>15thenpoke50447,255:poke50688,128:ms=-1
  48. 106 if(13eorjy)<>15thenmm=-1
  49. 108 poke2047,201
  50. 110 return
  51. 149 rem    going down
  52. 150 poke50447,0:poke50688,128:poke49522,3:u=0
  53. 152 sys49152:u=u+1:ifu=5then160
  54. 153 w1=peek(v+30):ifw1and128then200
  55. 154 w2=peek(v+31):ifw2and128then200
  56. 156 goto152
  57. 160 print""
  58. 161 print"[214]";mid$(p$,int(215*rnd(9)+1),37);"[214]"
  59. 162 fl=fl-1:print""tab(7)"   ":print""tab(7);fl:iffl=1then320
  60. 165 goto70
  61. 199 rem    collisions
  62. 200 poke50432,0:forx=2040to2046:pokex,208:next
  63. 202 s=54272:forx=0to24:pokes+x,0:next
  64. 204 pokes+24,15:pokes+5,80:pokes+6,243:pokes+3,4:pokes+4,65
  65. 206 forx=20to140step5:pokes+1,x:next
  66. 207 pokes+4,64:forx=0to50:next:pokes+4,64
  67. 208 forx=0to24:pokes+x,0:next
  68. 210 pokes+24,143:pokes+5,16:pokes+19,16:pokes+6,252:pokes+20,249
  69. 212 pokes+4,21:pokes+18,17:pokes+1,68:pokes+15,42:forx=0to200:next
  70. 214 pokes+24,20:pokes+18,16:forx=0to400:next:forx=0to24:pokes+x,0:next
  71. 218 fl=fl+5:bl=bl+1:ifbl=5then370
  72. 220 print"[147]":pokev+21,0:goto36
  73. 299 rem    time runs out
  74. 300 poke50432,127:print""tab(10)"sorry..time ran out."
  75. 302 gosub500:sc=1000-(50*bl)-(fl*10):goto400
  76. 319 rem    first floor
  77. 320 poke50432,127:print"[159]":printtab(5)"congratulations! you escaped"
  78. 322 gosub500:sc=1000+(2*tm)-(50*bl):goto400
  79. 369 rem    blopped
  80. 370 print"[158]5"
  81. 371 poke50432,127:print"[159]"
  82. 372 printtab(2)"sorry..you were blopped five times!"
  83. 374 gosub500:sc=750-(fl*10):ifsc<0thensc=0:goto400
  84. 399 rem    game over
  85. 400 print"[147]":pokev+21,127:forx=2040to2046:pokex,202:next:q=202
  86. 402 print"[159]"tab(11)"g a m e  o v e r":print:print:print:print
  87. 404 printtab(14)"score"sc:print:ifsc>hsthenhs=sc
  88. 405 printtab(14)"high score"hs
  89. 406 print""tab(11)"play again  y or n"
  90. 408 :
  91. 410 getm$:ifm$=""then416
  92. 412 ifm$="y"orm$="[217]"then420
  93. 414 ifm$="n"orm$="[206]"then60000
  94. 415 goto410
  95. 416 q=q+1:ifq=208thenq=202
  96. 417 forx=2040to2046:pokex,q:next:goto410
  97. 420 sc=0:tm=500:fl=50:bl=0:print"[147]":pokev+21,0:poke50432,0:goto36
  98. 499 rem    music
  99. 500 restore
  100. 502 forl=stos+24:pokel,0:next:pokes+5,9:pokes+6,0:pokes+24,15
  101. 504 readhf,lf,dr:ifhf=0thenreturn
  102. 506 pokes+1,hf:pokes,lf:pokes+4,33:fort=1todr:next
  103. 508 pokes+4,32:fort=1to50:next
  104. 510 goto504
  105. 512 data 44,193,250,63,75,100,56,99,100,59,190,100,53,57,100
  106. 514 data 63,75,100,56,99,100,59,190,100,53,57,100
  107. 516 data 63,75,100,56,99,100,59,190,100,53,57,100
  108. 518 data 63,75,100,56,99,100,59,190,100,53,57,100
  109. 520 data 44,193,250,84,125,1000,0,0,0
  110. 799 rem    title
  111. 800 print"[147]"chr$(142);:poke53281,0:poke53280,0
  112. 802 fort=0to100:x=int(1000*rnd(9)+1024):pokex,46:next
  113. 803 print"           loadstar presents:"
  114. 804 print"[158]"tab(17)"t h e":print:printtab(11)"m o o n l i g h t":print
  115. 806 printtab(10)"[175][175][175][175][175]"tab(25)"[207][183][183][183][183]":printtab(14)"[206]"tab(25)"[180]"
  116. 808 printtab(13)"[206]  [207][183][208]"tab(25)"[207][183][183]"
  117. 810 printtab(12)"[206]   [180] [170][170][205]  [180] [180]"
  118. 812 printtab(11)"[206]    [180] [170][170] [205] [180] [204][175][175][175]"
  119. 814 printtab(10)"[206]     [204][175][186][170]  [205][180]":printtab(9)"[206]":printtab(9)"[183][183][183][183][183][183]"
  120. 816 print""tab(15)"[159]by jc hilty"
  121. 817 printtab(12)"(c) copyright 1987"
  122. 818 gosub500
  123. 820 print""tab(7)"[158]please wait..reading data":return
  124. 1000 rem    sprite motion
  125. 1002 data 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0
  126. 1003 data 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80,197
  127. 1004 data 45,0,197,240,3,76,243,198,232,232,14,80,197,208,238,76,49,234
  128. 1006 data 169,0,29,0,197,208,3,76,97,199,169,128,61
  129. 1007 data 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80
  130. 1008 data 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
  131. 1009 data 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
  132. 1010 data 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80
  133. 1011 data 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
  134. 1012 data 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
  135. 1013 data 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0
  136. 1014 data 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0
  137. 1015 data 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198
  138. 1016 data 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199
  139. 1017 data 120,169,192,141,20,3,169,198,141,21,3,88,96
  140. 1018 rem    screen movement
  141. 1019 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  142. 1020 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  143. 1021 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204,116
  144. 1022 data 193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200,204
  145. 1023 data 116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104,145
  146. 1024 data 90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104,76
  147. 1025 data 111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116,193
  148. 1026 data 200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136,169
  149. 1027 data 32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  150. 1028 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  151. 1029 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  152. 1030 data 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
  153. 1031 data 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  154. 1032 data 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92,104
  155. 1033 data 145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  156. 1034 data 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  157. 1035 data 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  158. 1036 data 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  159. 1037 data 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  160. 1038 data 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  161. 1039 data 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  162. 1040 data 5,6,6,6,6,6,6,6,7,7,7,7,7,3,1,37,3,23,2,2
  163. 1042 rem    sprite data
  164. 1044 data 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,170,64,0,168
  165. 1045 data 0,0,156,0,0,40,0,0,40,0,0,130,0,0,130,0,0,243,192,0,0,0,0,0,0
  166. 1046 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  167. 1047 data 60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,168,0,0,168,0,0,188
  168. 1048 data 0,0,104,0,0,40,0,0,40,0,0,40,0,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0
  169. 1049 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  170. 1050 data 255,0,1,255,128,3,255,192,7,255,224,14,60,112,30,60,120,62,60
  171. 1051 data 124,127,255,254,255,255,255,255,255,255,248,255,31,120,255,30
  172. 1052 data 56,0,28,28,0,56,14,0,112,7,255,224,3,255,192,1,255,128,0,255,0,0
  173. 1053 data 0,0,0,0,0,0,0,255,0,1,255,128,3,255,192,7,255,224,15,241,192,31
  174. 1054 data 241,192,63,241,196,127,255,254,255,255,255,255,248,255,255,248,0
  175. 1055 data 127,252,0,63,254,0,31,255,0,15,255,128,7,255,224,3,255
  176. 1056 data 192,1,255,128,0,255,0,0,0,0,0,0,0,0,0
  177. 1057 data 255,0,1,255,128,3,255,192,7,255,224,15,255,192,31,255,192,63
  178. 1058 data 255,196,127,255,254,255,255,255,255,255,31,255,255,0,127,255
  179. 1059 data 128,63,255,192,31,255,224,15,255,240,7,255,224,3,255,192
  180. 1060 data 1,255,128,0,255,0,0
  181. 1061 data 0,0,0,0,0,0,0,255,0,1,255,128,3,255,192,7,255,224,15,255,240
  182. 1062 data 31,255,248,63,255,252,127,255,254,255,255,255,255,255,255
  183. 1063 data 255,255,255,127,255,254,63,255,252,31,255,248,15,255,240,7
  184. 1064 data 255,224,3,255,192,1,255,128,0,255,0,0,0,0,0,0,0,0,0,255,0,1
  185. 1065 data 255,128,3,255,192,7,255,224,3,255,240,3,255,248,35,255,252,127
  186. 1066 data 255,254,255,255,255,248,255,255,0,255,255,1,255,254,3,255,252
  187. 1067 data7,255,248,15,255,240,7,255,224,3,255,192,1,255,128,0,255,0,0,0,0
  188. 1068 data 0,0,0,0,0,255,0,1,255,128,3,255,192,7,255,224,7,199,240,7,199
  189. 1069 data 248,7,199,252,127,255,254,255,255,255,255,199,255,0,7,255,0,7
  190. 1070 data 254,0,15,252,0,31,248,15,255,240,7,255,224,3,255,192,1,255,128
  191. 1071 data 0,255,0,0,0,0,63,248,0,63,249,128,51,153,159,51,153,155,51,249
  192. 1072 data 155,63,241,155,63,193,155,48,241,155,48,249,159,48,153,128,48
  193. 1073 data 153,240,48,249,240,0,248,0,0,0,0,0,0,0,0,15,255,240,31,255
  194. 1074 data 224,63,255,192,0,0,0,0,0,0
  195. 60000 rem quit
  196. 60005 poke53248+21,0
  197. 60006 sys65418
  198. 60010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  199. 60020 open15,8,15,"i0":close15
  200. 60030 ifer<>63thenend
  201. 60040 load"hello connect",8
  202. 60050 end
  203. 60060 :
  204. 61000 rem  quit?
  205. 61005 pokev+21,0:poke50432,0
  206. 61010 print"[147]  are you sure you want to quit (y/n)?"
  207. 61020 poke198,0:wait198,1:getag$
  208. 61030 ifag$="y"orag$="[217]"then60000
  209. 61040 ifag$="n"orag$="[206]"thenpokev+21,255:goto36
  210. 61050 goto61020
  211.